home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 July / AMIGA_1996_7.BIN / storm-c / stormwizard / wizard install-script < prev    next >
Text File  |  1996-05-10  |  6KB  |  200 lines
  1. ; $VER: StormWIZARD V1.0 Install Version 1.00 (10.5.96)
  2. ; Installatiert StormWizard auf der Festplatte
  3. ;
  4. ; (c) 1996 HAAGE & PARTNER Computer GmbH
  5.  
  6. (complete 0)
  7.  
  8. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  9. ; Versionen.
  10.  
  11. (set stw-version "1.06")
  12. (set stw-date "(7 Mai 96)")
  13.  
  14. ;====================================================================
  15. ; Initialisierungen
  16.  
  17. (set @default-dest "")
  18.  
  19. (set os-version (/ (getversion) 65536))
  20. (set os-13 (< os-version 36))
  21. (set os-20 (>= os-version 36))
  22. (set os-21 (>= os-version 38))
  23.  
  24. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  25.  
  26. ; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
  27.  
  28. ; Die Pfadnamen der einzelnen Quell-Dateien.
  29.  
  30. (set #libfile                (tackon (pathonly @icon) "LIBS/Wizard.library"))        ; Hier stehen die Bibliothek
  31.  
  32. (set #prp-copy-lib
  33.     "Kopiere die WIZARD-LIBRARY\n")
  34. (set #hlp-copy-lib
  35.     "Ohne das aktuelle Herzstück von StormWIZARD, funktioniert nichts!")
  36. (set #prp-copy-all
  37.     "Kopiere die komplette StormWIZARD-Installation auf Ihre Festplatte!\n")
  38. (set #hlp-copy-all (cat
  39.     "StormWIZARD kann auch von der CD gestartet werden.\n"
  40.     "Dazu muß lediglich die Wizard.library installiert werden"))
  41.  
  42. ; ----------------------------- Prozeduren ------------------------------
  43.  
  44. (Procedure Make_Folder
  45.     (
  46.     (set folder (tackon folder "StormWIZARD"))
  47.     (if (= (exists folder) 0)
  48.        (
  49.        (makedir folder (infos))
  50.        )
  51.     ))
  52. )
  53.  
  54. ;=====================================================================================
  55. ; Beginn der Installation
  56. ;=====================================================================================
  57.  
  58. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  59.  
  60. (set folder "WORK:StormWIZARD")
  61.  
  62. (set act-user-level @user-level)
  63. (user 1)
  64.  
  65. (message (cat    "\nWillkommen bei der Installation der \n\n\"StormWIZARD-Demoversion "
  66.                      stw-version " vom "stw-date "\"!\n\n"
  67.                     "Dieses Skript kopiert die Library von StormWizard, "
  68.                     "auf Ihre Festplatte und erzeugt einen Assign.\n\n\n"
  69.                     "© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
  70.  
  71. (user act-user-level)
  72. (welcome)
  73.  
  74.  
  75. (complete 5)
  76.  
  77. (set act-user-level @user-level)
  78.  
  79. (user act-user-level)
  80.  
  81.  
  82. (set ok 0)
  83. (while (not ok)
  84.     (set folder
  85.         (askdir
  86.             (prompt (cat "\n"
  87.                              "Auswahl des Pfades für die StormWIZARDInstallation.\n"
  88.                              "Eine Schublade mit dem Namen StormWIZARD wird automatisch erzeugt!"))
  89.             (help (cat    "    Sie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  90.                             "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  91.                             "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  92.                             "gekennzeichneten Einträge auswählen.\n"
  93.                             "    Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  94.                             "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  95.                             "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  96.                             "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  97.                             "\n\n"
  98.                             "Storm C kann nur in eine Schublade nicht aber auf eine "
  99.                             "Partition direkt installiert werden! Wenn Sie also nur ein Laufwerk "
  100.                             "für die Installation auswählen, wird Ihnen eine Fehlermeldung angezeigt!\n\n"
  101.                             @askdir-help))
  102.             (default folder)
  103.             (disk)
  104.         )
  105.     )
  106.  
  107.    (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  108.  
  109.     ; Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  110.     ; diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  111.     ; kann die Auswahl-Schleife beendet werden.
  112.     (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  113.         (message (cat    "\nBei Ihrer Auswahl \"" folder "\" handelt es sich nicht um "
  114.                             "eine gültige Schublade!\n\n"
  115.                             "Sie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  116.                             "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  117.                             "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  118.                             "gekennzeichneten Einträge auswählen.\n"
  119.                             "Über den Schalter \"Neue Schublade anlegen...\" können Sie ein neue "
  120.                                "Schublade erzeugen. Diese neue Schublade\nwird auf der Partition "
  121.                                "angelegt, die Sie soeben betrachten."))
  122.         ;else
  123.         (
  124.             (set freediskspace (getdiskspace folder))    ; Der freie Speicher auf diesem Medium
  125.  
  126.             (if (< freediskspace size-komplett)
  127.                 (
  128.                 (user 1)
  129.                 (message (cat    "\nAuf der ausgewählten Festplattenpartition "
  130.                                             "steht nicht genügend freier Speicher für die "
  131.                                             "komplette Installation von StormWIZARD zur Verfügung.\n\n"
  132.                                             "Freier Speicher " freediskspace "!\n"
  133.                                             "Benötigter Speicher " size-komplett "!\n\n"
  134.                                             "Bitte wählen Sie eine andere Partition, auf "
  135.                                             "der entsprechende Kapazitäten vorhanden sind!"))                
  136.                 )
  137.             ;else
  138.             (set ok 1)
  139.             )
  140.         )
  141.     )
  142. )
  143.  
  144. (makeassign "STORMWIZARD")
  145.  
  146. (user act-user-level)
  147.  
  148. (set @default-dest folder)    ; Die Zuweisung ist sehr wichtig!
  149.  
  150. (copyfiles                                            ; Alles kopieren
  151.     (prompt #prp-copy-all)
  152.     (help #hlp-copy-all)
  153.     (source (pathonly @icon))
  154.     (dest folder)
  155.     (all)
  156.     (confirm)
  157. )
  158. ; Wizard.Library in die Libs-Schublade kopieren!
  159.  
  160. (copylib
  161.     (prompt #prp-copy-lib)
  162.     (help #hlp-copy-lib)
  163.     (source #libfile)
  164.     (dest "LIBS:")
  165.     (confirm)
  166. )
  167.  
  168. (complete 95)
  169.  
  170. ; ------- STARTUP ÄNDERN
  171.  
  172. (set command1 (cat  "ASSIGN STORMWIZARD: " folder ""))
  173.  
  174. (set command1.txt
  175.     (cat 
  176.          "\n\n\nUm mit StromWIZARD richtig arbeiten zu "
  177.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  178.          command1
  179.     )
  180. )
  181.  
  182. (startup "StormWIZARD"
  183.     (prompt command1.txt)
  184.     (help #help-startup)
  185.     (command command1)
  186. )
  187.  
  188. (makeassign "STORMWIZARD")
  189. (makeassign "STORMWIZARD" folder)
  190.  
  191. (complete 100)
  192.  
  193. ; ------- FERTIG
  194.  
  195. (message (cat 
  196.     "\nInstallation von StormWIZARD beendet.\n\n"
  197.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  198.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  199.    "\n\nWir wünschen ihnen viel Erfolg mit StormWIZARD!")
  200. )